home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00001Series_133_prndet.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  13.6 KB  |  326 lines
  1. on mouseUp
  2.   global printer, gTblca_fe, gPropFont, gtemp
  3.   puppetSound("mainsnd")
  4.   if (the number of chars in line gtemp of field "orderfield" < 1) or (gtemp = 0) then
  5.     alert("please select model number")
  6.     abort()
  7.   end if
  8.   set doc to new(xtra("PrintOMatic"))
  9.   if not objectp(doc) then
  10.     alert("There is no currently selected printer. Printing features are disabled.")
  11.   else
  12.     cursor(4)
  13.     setDocumentName(doc, "Colson CD Rom Catalog")
  14.     setMargins(doc, rect(72, 30, 72, 48))
  15.     set w to getPageWidth(doc)
  16.     set h to getPageHeight(doc)
  17.     setPageNumSymbol(doc, "├₧")
  18.     setTextFont(doc, gPropFont)
  19.     setTextSize(doc, 10)
  20.     setTextStyle(doc, "normal,italic")
  21.     setTextJust(doc, "left")
  22.     setTextStyle(doc, "normal,italic,bold")
  23.     setTextSize(doc, 14)
  24.     drawText(doc, "Colson CD-ROM Catalog -- Item Detail Report", point(0, 47))
  25.     setTextSize(doc, 10)
  26.     setTextStyle(doc, "normal,italic,bold")
  27.     setTextJust(doc, "right")
  28.     drawText(doc, "printed" && the date, point(w, 47))
  29.     setTextStyle(doc, "normal")
  30.     drawLine(doc, point(0, 50), point(w, 50))
  31.     drawText(doc, "Copyright 1998, Colson Caster Corporation, 800-643-5515, Fax: 800 356-6708", point(w - 70, h - 2))
  32.     setTextJust(doc, "left")
  33.     if item 1 of line gtemp of field "masterfield" contains "caster" then
  34.       put item 1 of line gtemp of field "masterfield" into field "tempfield"
  35.       put mSetCriteria(gTblca_fe, "DESCCA", "=", field "tempfield")
  36.       put mSelect(gTblca_fe)
  37.       put mSelectCount(gTblca_fe)
  38.       drawPicture(doc, member item 14 of line gtemp of field "masterfield", point(0, 70))
  39.       drawPicture(doc, member item 15 of line gtemp of field "masterfield", point(0, 295))
  40.       newPage(doc)
  41.       newFrame(doc, rect(0, 244, 120, 300), 0)
  42.       append(doc, item 1 of line gtemp of field "masterfield", 1)
  43.       newFrame(doc, rect(0, 470, 120, 500), 0)
  44.       append(doc, item 7 of line gtemp of field "masterfield", 1)
  45.       setTextFont(doc, gPropFont)
  46.       setTextSize(doc, 10)
  47.       setTextStyle(doc, "normal")
  48.       newFrame(doc, rect(150, 70, 460, h), 0)
  49.       setTextFont(doc, gPropFont)
  50.       setTextSize(doc, 12)
  51.       setTextStyle(doc, "normal,bold")
  52.       append(doc, "Specifications" & RETURN, 1)
  53.       setTextSize(doc, 10)
  54.       setTextStyle(doc, "normal,bold")
  55.       append(doc, "Caster Type: ", 1)
  56.       setTextStyle(doc, "normal")
  57.       append(doc, item 1 of line gtemp of field "masterfield" & RETURN, 1)
  58.       setTextStyle(doc, "normal,bold")
  59.       append(doc, "Model Number: ", 1)
  60.       setTextStyle(doc, "normal")
  61.       append(doc, item 2 of line gtemp of field "masterfield" & RETURN, 1)
  62.       setTextStyle(doc, "normal,bold")
  63.       append(doc, "Mounting: ", 1)
  64.       setTextStyle(doc, "normal")
  65.       append(doc, item 3 of line gtemp of field "masterfield" & RETURN, 1)
  66.       setTextStyle(doc, "normal,bold")
  67.       append(doc, "Wheel Diameter: ", 1)
  68.       setTextStyle(doc, "normal")
  69.       append(doc, item 4 of line gtemp of field "masterfield" & RETURN, 1)
  70.       setTextStyle(doc, "normal,bold")
  71.       append(doc, "Tread Width: ", 1)
  72.       setTextStyle(doc, "normal")
  73.       append(doc, item 5 of line gtemp of field "masterfield" & RETURN, 1)
  74.       setTextStyle(doc, "normal,bold")
  75.       append(doc, "Capacity per Caster: ", 1)
  76.       setTextStyle(doc, "normal")
  77.       append(doc, item 6 of line gtemp of field "masterfield" & RETURN, 1)
  78.       setTextStyle(doc, "normal,bold")
  79.       append(doc, "Wheel Type: ", 1)
  80.       setTextStyle(doc, "normal")
  81.       append(doc, item 7 of line gtemp of field "masterfield" & RETURN, 1)
  82.       setTextStyle(doc, "normal,bold")
  83.       append(doc, "Bearing: ", 1)
  84.       setTextStyle(doc, "normal")
  85.       append(doc, item 8 of line gtemp of field "masterfield" & RETURN, 1)
  86.       setTextStyle(doc, "normal,bold")
  87.       append(doc, "Load Height: ", 1)
  88.       setTextStyle(doc, "normal")
  89.       append(doc, item 9 of line gtemp of field "masterfield" & RETURN, 1)
  90.       setTextStyle(doc, "normal,bold")
  91.       append(doc, "Swivel Radius: ", 1)
  92.       setTextStyle(doc, "normal")
  93.       append(doc, item 10 of line gtemp of field "masterfield" & RETURN, 1)
  94.       setTextStyle(doc, "normal,bold")
  95.       append(doc, "Fork Leg Spacing: ", 1)
  96.       setTextStyle(doc, "normal")
  97.       append(doc, item 11 of line gtemp of field "masterfield" & RETURN, 1)
  98.       setTextStyle(doc, "normal,bold")
  99.       append(doc, "Approximate Weight: ", 1)
  100.       setTextStyle(doc, "normal")
  101.       append(doc, item 12 of line gtemp of field "masterfield" & RETURN, 1)
  102.       setTextStyle(doc, "normal,bold")
  103.       append(doc, "Options: ", 1)
  104.       setTextStyle(doc, "normal")
  105.       append(doc, item 13 of line gtemp of field "masterfield" & RETURN & RETURN, 1)
  106.       setTextSize(doc, 12)
  107.       setTextStyle(doc, "normal,bold")
  108.       append(doc, "Features" & RETURN, 1)
  109.       setTextSize(doc, 10)
  110.       setTextStyle(doc, "normal")
  111.       append(doc, field "Tblca_Fe,FEATURE", 1)
  112.     end if
  113.     if item 1 of line gtemp of field "masterfield" contains "wheel" then
  114.       drawPicture(doc, member item 14 of line gtemp of field "masterfield", point(0, 70))
  115.       newPage(doc)
  116.       newFrame(doc, rect(0, 244, 120, 300), 0)
  117.       append(doc, item 1 of line gtemp of field "masterfield", 1)
  118.       setTextFont(doc, gPropFont)
  119.       setTextSize(doc, 10)
  120.       setTextStyle(doc, "normal")
  121.       newFrame(doc, rect(150, 70, 460, h), 0)
  122.       setTextFont(doc, gPropFont)
  123.       setTextSize(doc, 12)
  124.       setTextStyle(doc, "normal,bold")
  125.       append(doc, "Specifications" & RETURN, 1)
  126.       setTextSize(doc, 10)
  127.       setTextStyle(doc, "normal,bold")
  128.       append(doc, "Wheel Type: ", 1)
  129.       setTextStyle(doc, "normal")
  130.       append(doc, item 1 of line gtemp of field "masterfield" & RETURN, 1)
  131.       setTextSize(doc, 10)
  132.       setTextStyle(doc, "normal,bold")
  133.       append(doc, "Model Number: ", 1)
  134.       setTextStyle(doc, "normal")
  135.       append(doc, item 2 of line gtemp of field "masterfield" & RETURN, 1)
  136.       setTextSize(doc, 10)
  137.       setTextStyle(doc, "normal,bold")
  138.       append(doc, "Wheel Diameter: ", 1)
  139.       setTextStyle(doc, "normal")
  140.       append(doc, item 3 of line gtemp of field "masterfield" & RETURN, 1)
  141.       setTextSize(doc, 10)
  142.       setTextStyle(doc, "normal,bold")
  143.       append(doc, "Tread Width: ", 1)
  144.       setTextStyle(doc, "normal")
  145.       append(doc, item 4 of line gtemp of field "masterfield" & RETURN, 1)
  146.       setTextSize(doc, 10)
  147.       setTextStyle(doc, "normal,bold")
  148.       append(doc, "Capacity Per Wheel: ", 1)
  149.       setTextStyle(doc, "normal")
  150.       append(doc, item 5 of line gtemp of field "masterfield" & RETURN, 1)
  151.       setTextSize(doc, 10)
  152.       setTextStyle(doc, "normal,bold")
  153.       append(doc, "Bearing: ", 1)
  154.       setTextStyle(doc, "normal")
  155.       append(doc, item 6 of line gtemp of field "masterfield" & RETURN, 1)
  156.       setTextSize(doc, 10)
  157.       setTextStyle(doc, "normal,bold")
  158.       append(doc, "Wheel Bearing Bore: ", 1)
  159.       setTextStyle(doc, "normal")
  160.       append(doc, item 7 of line gtemp of field "masterfield" & RETURN, 1)
  161.       setTextSize(doc, 10)
  162.       setTextStyle(doc, "normal,bold")
  163.       append(doc, "Wheel Hub Length: ", 1)
  164.       setTextStyle(doc, "normal")
  165.       append(doc, item 8 of line gtemp of field "masterfield" & RETURN, 1)
  166.       setTextSize(doc, 10)
  167.       setTextStyle(doc, "normal,bold")
  168.       append(doc, "Spanner Bushing Bore: ", 1)
  169.       setTextStyle(doc, "normal")
  170.       append(doc, item 9 of line gtemp of field "masterfield" & RETURN, 1)
  171.       setTextSize(doc, 10)
  172.       setTextStyle(doc, "normal,bold")
  173.       append(doc, "Spanner Bushing Length: ", 1)
  174.       setTextStyle(doc, "normal")
  175.       append(doc, item 10 of line gtemp of field "masterfield" & RETURN, 1)
  176.       setTextSize(doc, 10)
  177.       setTextStyle(doc, "normal,bold")
  178.       append(doc, "Approx. Weight: ", 1)
  179.       setTextStyle(doc, "normal")
  180.       append(doc, item 11 of line gtemp of field "masterfield" & RETURN, 1)
  181.     end if
  182.     if item 1 of line gtemp of field "masterfield" contains "floor lock" then
  183.       put item 1 of line gtemp of field "masterfield" into field "tempfield"
  184.       put mSetCriteria(gTblca_fe, "DESCCA", "=", field "tempfield")
  185.       put mSelect(gTblca_fe)
  186.       put mSelectCount(gTblca_fe)
  187.       drawPicture(doc, member item 14 of line gtemp of field "masterfield", point(0, 70))
  188.       newPage(doc)
  189.       newFrame(doc, rect(0, 244, 120, 300), 0)
  190.       append(doc, item 1 of line gtemp of field "masterfield", 1)
  191.       setTextFont(doc, gPropFont)
  192.       setTextSize(doc, 10)
  193.       setTextStyle(doc, "normal")
  194.       newFrame(doc, rect(150, 70, 460, h), 0)
  195.       setTextFont(doc, gPropFont)
  196.       setTextSize(doc, 12)
  197.       setTextStyle(doc, "normal,bold")
  198.       append(doc, "Specifications" & RETURN, 1)
  199.       setTextSize(doc, 10)
  200.       setTextStyle(doc, "normal,bold")
  201.       append(doc, "Product: ", 1)
  202.       setTextStyle(doc, "normal")
  203.       append(doc, item 1 of line gtemp of field "masterfield" & RETURN, 1)
  204.       setTextSize(doc, 10)
  205.       setTextStyle(doc, "normal,bold")
  206.       append(doc, "Model Number: ", 1)
  207.       setTextStyle(doc, "normal")
  208.       append(doc, item 2 of line gtemp of field "masterfield" & RETURN, 1)
  209.       setTextSize(doc, 10)
  210.       setTextStyle(doc, "normal,bold")
  211.       append(doc, "Top Plate Size: ", 1)
  212.       setTextStyle(doc, "normal")
  213.       append(doc, item 3 of line gtemp of field "masterfield" & RETURN, 1)
  214.       setTextSize(doc, 10)
  215.       setTextStyle(doc, "normal,bold")
  216.       append(doc, "Extended Height: ", 1)
  217.       setTextStyle(doc, "normal")
  218.       append(doc, item 4 of line gtemp of field "masterfield" & RETURN, 1)
  219.       setTextSize(doc, 10)
  220.       setTextStyle(doc, "normal,bold")
  221.       append(doc, "Retracted Height: ", 1)
  222.       setTextStyle(doc, "normal")
  223.       append(doc, item 5 of line gtemp of field "masterfield" & RETURN, 1)
  224.       setTextSize(doc, 10)
  225.       setTextStyle(doc, "normal,bold")
  226.       append(doc, "Bolt Hole Spacing: ", 1)
  227.       setTextStyle(doc, "normal")
  228.       append(doc, item 6 of line gtemp of field "masterfield" & RETURN, 1)
  229.       setTextSize(doc, 10)
  230.       setTextStyle(doc, "normal,bold")
  231.       append(doc, "Bolt Hole Size: ", 1)
  232.       setTextStyle(doc, "normal")
  233.       append(doc, item 7 of line gtemp of field "masterfield" & RETURN, 1)
  234.       setTextSize(doc, 10)
  235.       setTextStyle(doc, "normal,bold")
  236.       append(doc, "Use With Caster Models: ", 1)
  237.       setTextStyle(doc, "normal")
  238.       append(doc, item 8 of line gtemp of field "masterfield" & RETURN, 1)
  239.       setTextSize(doc, 10)
  240.       setTextStyle(doc, "normal,bold")
  241.       append(doc, "Use With Caster Models: ", 1)
  242.       setTextStyle(doc, "normal")
  243.       append(doc, item 8 of line gtemp of field "masterfield" & RETURN & RETURN, 1)
  244.       setTextSize(doc, 12)
  245.       setTextStyle(doc, "normal,bold")
  246.       append(doc, "Features" & RETURN, 1)
  247.       setTextSize(doc, 10)
  248.       setTextStyle(doc, "normal")
  249.       append(doc, field "Tblca_Fe,FEATURE", 1)
  250.     end if
  251.     if item 1 of line gtemp of field "masterfield" contains "Bumper" then
  252.       put item 1 of line gtemp of field "masterfield" into field "tempfield"
  253.       put mSetCriteria(gTblca_fe, "DESCCA", "=", field "tempfield")
  254.       put mSelect(gTblca_fe)
  255.       put mSelectCount(gTblca_fe)
  256.       drawPicture(doc, member item 14 of line gtemp of field "masterfield", point(0, 70))
  257.       newPage(doc)
  258.       newFrame(doc, rect(0, 244, 120, 300), 0)
  259.       append(doc, item 1 of line gtemp of field "masterfield", 1)
  260.       setTextFont(doc, gPropFont)
  261.       setTextSize(doc, 10)
  262.       setTextStyle(doc, "normal")
  263.       newFrame(doc, rect(150, 70, 460, h), 0)
  264.       setTextFont(doc, gPropFont)
  265.       setTextSize(doc, 12)
  266.       setTextStyle(doc, "normal,bold")
  267.       append(doc, "Specifications" & RETURN, 1)
  268.       setTextSize(doc, 10)
  269.       setTextStyle(doc, "normal,bold")
  270.       append(doc, "Specifications: ", 1)
  271.       setTextStyle(doc, "normal")
  272.       append(doc, item 1 of line gtemp of field "masterfield" & RETURN, 1)
  273.       setTextSize(doc, 10)
  274.       setTextStyle(doc, "normal,bold")
  275.       append(doc, "Model Number: ", 1)
  276.       setTextStyle(doc, "normal")
  277.       append(doc, item 2 of line gtemp of field "masterfield" & RETURN, 1)
  278.       setTextSize(doc, 10)
  279.       setTextStyle(doc, "normal,bold")
  280.       append(doc, "Bumper Diameter: ", 1)
  281.       setTextStyle(doc, "normal")
  282.       append(doc, item 3 of line gtemp of field "masterfield" & RETURN, 1)
  283.       setTextSize(doc, 10)
  284.       setTextStyle(doc, "normal,bold")
  285.       append(doc, "Hole Diameter: ", 1)
  286.       setTextStyle(doc, "normal")
  287.       append(doc, item 4 of line gtemp of field "masterfield" & RETURN, 1)
  288.       setTextSize(doc, 10)
  289.       setTextStyle(doc, "normal,bold")
  290.       append(doc, "Thickness: ", 1)
  291.       setTextStyle(doc, "normal")
  292.       append(doc, item 5 of line gtemp of field "masterfield" & RETURN, 1)
  293.       setTextSize(doc, 10)
  294.       setTextStyle(doc, "normal,bold")
  295.       append(doc, "Mounting Holes: ", 1)
  296.       setTextStyle(doc, "normal")
  297.       append(doc, item 6 of line gtemp of field "masterfield" & RETURN, 1)
  298.       setTextSize(doc, 10)
  299.       setTextStyle(doc, "normal,bold")
  300.       append(doc, "Length: ", 1)
  301.       setTextStyle(doc, "normal")
  302.       append(doc, item 7 of line gtemp of field "masterfield" & RETURN, 1)
  303.       setTextSize(doc, 10)
  304.       setTextStyle(doc, "normal,bold")
  305.       append(doc, "Width: ", 1)
  306.       setTextStyle(doc, "normal")
  307.       append(doc, item 8 of line gtemp of field "masterfield" & RETURN, 1)
  308.       setTextSize(doc, 10)
  309.       setTextStyle(doc, "normal,bold")
  310.       append(doc, "Inserts: ", 1)
  311.       setTextStyle(doc, "normal")
  312.       append(doc, item 9 of line gtemp of field "masterfield" & RETURN & RETURN & RETURN, 1)
  313.       setTextSize(doc, 12)
  314.       setTextStyle(doc, "normal,bold")
  315.       append(doc, "Features" & RETURN, 1)
  316.       setTextSize(doc, 10)
  317.       setTextStyle(doc, "normal")
  318.       append(doc, field "Tblca_Fe,FEATURE", 1)
  319.     end if
  320.   end if
  321.   if doJobSetup(doc) then
  322.     print(doc)
  323.   end if
  324.   cursor(-1)
  325. end
  326.